home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / PDraw3.0.adf / pdraw_rex.lzh / DeleteRange.pdrx < prev    next >
Text File  |  1992-06-15  |  931b  |  41 lines
  1. /*
  2. @N
  3.  
  4. Use this Genie to delete a range of pages.
  5. */
  6. cr = '0a'x
  7.  
  8. first = pdm_DocFirstPage()
  9. last = pdm_DocLastPage()
  10. form = "from:"first'0a'x "to:"last
  11.  
  12. form = pdm_GetForm("Enter Range Of Pages:", 5, form)
  13. if form = '' then exit_msg()
  14. parse var form startpage'0a'x endpage
  15.  
  16. if ~DataType(startpage, 'N') then exit_msg('Invalid Input:'startpage)
  17. if ~DataType(endpage, 'N') then exit_msg('Invalid Input:'endpage)
  18.  
  19. call pdm_AutoUpdate(0)
  20. if last = 0 then exit_msg()
  21. if startpage < first then exit_msg('Invalid Range')
  22. else if startpage > last then exit_msg('Invalid Range')
  23. if endpage < first then exit_msg('Invalid Range')
  24. else if endpage > last then exit_msg('Invalid Range')
  25.  
  26. if startpage > endpage then exit_msg('Invalid Range')
  27.  
  28. call pdm_DeletePage(startpage, endpage - startpage + 1)
  29.  
  30. exit_msg()
  31.  
  32. exit_msg:
  33. do
  34.     parse arg message
  35.  
  36.     if message ~= '' then call pdm_Inform(1, message,)
  37.     call pdm_AutoUpdate(1)
  38.     exit
  39. end
  40.  
  41.